program LOJA;

uses
  Vcl.Forms,
  windows,
  SysUtils,
  cliente1 in 'cliente1.pas' {frmcliente1},
  cliente2 in 'cliente2.pas' {frmcliente},
  DM in 'DM.pas' {Base: TDataModule},
  parcelar in 'parcelar.pas' {frmparcelar},
  principal in 'principal.pas' {frmprincipal},
  cartao in 'cartao.pas' {frmcartao},
  produto1 in 'produto1.pas' {frmproduto1},
  venda in 'venda.pas' {frmvenda},
  unt_pagamento in 'unt_pagamento.pas' {frm_pagamento},
  relatorios in 'relatorios.pas' {FrmRelatorio},
  suporte in 'suporte.pas' {frmsuporte},
  produto in 'produto.pas' {frmproduto},
  Envelope in 'Envelope.pas' {Imprimir},
  unt_versao in 'unt_versao.pas' {Versao};

{$R *.res}


procedure atualizacao;
var tbversao: string;
begin

tbversao:= 'CREATE TABLE IF NOT EXISTS versao( '+
	'versao varchar(20) )';

try
versao.Comando.Close;
versao.comando.sql.Clear;
versao.Comando.SQL.Add(tbversao);
versao.Comando.ExecSQL;

except

end;


versao.comando.sql.Clear;
versao.Comando.SQL.Add('insert into versao (versao) values ('+quotedstr('1.03')+')' );
versao.Comando.ExecSQL;




versao.versao.Open;
versao.Edit1.Clear;
versao.Edit1.Text:= versao.versao.FieldByName('versao').value;
if versao.edit2.Text <>  versao.versao.FieldByName('versao').value then
begin
versao.ShowModal;
end;
end;




begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TBase, Base);
  Application.CreateForm(Tfrmprincipal, frmprincipal);
  Application.CreateForm(Tfrmcliente1, frmcliente1);
  Application.CreateForm(Tfrmcliente, frmcliente);
  Application.CreateForm(Tfrmparcelar, frmparcelar);
  Application.CreateForm(Tfrmcartao, frmcartao);
  Application.CreateForm(Tfrmproduto1, frmproduto1);
  Application.CreateForm(Tfrmvenda, frmvenda);
  Application.CreateForm(Tfrm_pagamento, frm_pagamento);
  Application.CreateForm(TFrmRelatorio, FrmRelatorio);
  Application.CreateForm(Tfrmsuporte, frmsuporte);
  Application.CreateForm(Tfrmproduto, frmproduto);
  Application.CreateForm(Tfrmcartao, frmcartao);
  Application.CreateForm(TImprimir, Imprimir);
  Application.CreateForm(TVersao, Versao);
  Application.CreateForm(TVersao, Versao);
  atualizacao;
  Application.Run;
end.
